home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 8.4.dxr / 00012_loop band 5.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  664 b   |  34 lines
  1. property spriteNum, pSpeed
  2. global gItemlist5, gSpeed5
  3.  
  4. on beginSprite me
  5.   pSpeed = gSpeed5
  6.   sprite(spriteNum).locV = 500
  7.   setgoed()
  8.   add(gItemlist5, me)
  9.   add(the actorList, me)
  10. end
  11.  
  12. on endSprite me
  13.   deleteOne(the actorList, me)
  14.   cursor(-1)
  15. end
  16.  
  17. on stepFrame me
  18.   if sprite(spriteNum).left > 550 then
  19.     deleteOne(gItemlist5, me)
  20.     setgoed()
  21.     add(gItemlist5, me)
  22.   end if
  23.   sprite(spriteNum).locH = sprite(spriteNum).locH + gSpeed5
  24. end
  25.  
  26. on setgoed me
  27.   vorigeItems = gItemlist5.count
  28.   if vorigeItems < 1 then
  29.     nothing()
  30.   else
  31.     sprite(spriteNum).locH = sprite(gItemlist5[vorigeItems].spriteNum).left - (sprite(spriteNum).width / 2)
  32.   end if
  33. end
  34.